1000 lda $d016
1003 sec
1004 sbc #$02
1006 and #$07
1008 sta $d016
100b bcc $100e
100d rts
100e ldx #$00
1010 lda $0401,x
1013 sta $0400,x
1016 lda $0429,x
1019 sta $0428,x
101c inx
101d cpx #$28
101f bne $1010
1021 lda $2000
1024 bne $1032
1026 lda #$00  ->jsr for init
1028 sta $1022
102b lda #$20
102d sta $1023
1030 lda #$20
1032 ora #$40
1034 sta $0427
1037 ora #$80
1039 sta $044f
103c lda $1033
103f eor #$40
1041 sta $1033
1044 bne $104e
1046 inc $1022
1049 bne $104e
104b inc $1023
104e rts


